home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / lang / fst-31s / lib / realinou.def < prev    next >
Text File  |  1992-09-24  |  834b  |  34 lines
  1. DEFINITION MODULE RealInOut;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     This module is an extension of InOut and provides routines
  7.     for reading and writing REAL numbers.
  8.  
  9.     This module does its I/O thru InOut.
  10. *)
  11.  
  12. VAR Done :BOOLEAN;
  13.  
  14. PROCEDURE ReadReal( VAR x :REAL );
  15. (*
  16.     reads a string.
  17.     the string is then converted to a REAL which is returned in x.
  18.  
  19.     a real in the format defined for Modula-2 REAL literals is expected
  20.  
  21.     Done is set to TRUE if a valid REAL number is read.
  22. *)
  23.  
  24. PROCEDURE WriteReal( x: REAL; n: CARDINAL );
  25. (*
  26.     x is written in scientific notation, right justified in a field
  27.     of at least n characters.
  28. *)
  29.  
  30. PROCEDURE ReadLongReal( VAR x :LONGREAL );
  31.  
  32. PROCEDURE WriteLongReal( x: LONGREAL; n: CARDINAL );
  33.  
  34. END RealInOut.